home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / EasyTools / DiskCopyGUI < prev    next >
Text File  |  1996-12-13  |  2KB  |  85 lines
  1. /*
  2.  
  3. $VER: DiskCopyGUI 1.0 (12.05.96) by David De Groot 
  4.  
  5. This script works with Diskcopy in Sys:System
  6.  
  7. */
  8.  
  9.  
  10.  
  11. signal on break_c
  12. options failat 21
  13. NL = '0a'x
  14.  
  15. bool = exists('libs:rexxreqtools.library')
  16.  if BOOL = 0 then say "You need RexxReqTools.library"
  17. else call addlib('rexxreqtools.library',0,-30)
  18.  
  19. dcheck = exists('sys:system/diskcopy')
  20. if dcheck = 0
  21.     then do
  22.      call rtezrequest("DISKCOPY not found in Sys:System...",, 
  23.                       "Sorry!","ATTENTION!!",'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  24.     exit 
  25.   end
  26. else nop
  27.  
  28. call rtezrequest("Welcome to DiskCopyGUI." nl,
  29.                  "Make a choice of proceeding in the folowing requesters.",,
  30.                  "_Continue|_About","Hello!",'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  31.  
  32. if rtresult == 0
  33.  then call rtezrequest("DiskCopyGUI was written by David De Groot." nl,
  34.                        "Email: daviddg@glo.be" nl nl,
  35.                        "This program is Emailware:" nl nl,
  36.                        "Send your appreciation, bugreports," nl,
  37.                        "lists of dislikes and new Power Amiga's" nl,
  38.                        "to the author!" nl,,
  39.                        "I promise!","About",'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  40.  
  41. call rtezrequest("DF0: is the SOURCEdrive." nl "Pick the destination drive:",,
  42.                  "DF_1|DF_2|DF_3|_Cancel","Pick a target:",'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  43.  
  44. if rtresult == 1 then secdrive = 'df1'
  45. if rtresult == 2 then secdrive = 'df2'
  46. if rtresult == 3 then secdrive = 'df3'
  47. if rtresult == 0 then exit
  48.  
  49. call rtezrequest("What do you prefer:" nl nl "Standard diskcopy" nl "Quick copy (no verify)," nl "or" nl "Multiple disks?" nl,,
  50.                  "Copy|_Quick|_Multiple","Tell me:",'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  51.  
  52. if rtresult == 1 then call ddcommand
  53. if rtresult == 2 then call qdcommand
  54. if rtresult == 0 then call mdcommand
  55.  
  56.  
  57. /**/
  58. ddcommand:
  59. address command
  60. 'diskcopy df0: to ' || secdrive || ': '
  61. exit   
  62.  
  63.  
  64. /**/
  65. qdcommand:
  66. address command
  67. 'diskcopy df0: to ' || secdrive || ': noverify'
  68. exit
  69.  
  70. /**/
  71. mdcommand:
  72. address command
  73. 'diskcopy df0: to ' || secdrive || ': multi'
  74. exit
  75.  
  76.  
  77. /**/
  78. break_c:
  79. call rtezrequest("You entered a break." nl,
  80.                  "This quits DiskCopyGUI...",,
  81.                  "Right!","Heho!",'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  82.  
  83. exit
  84.  
  85.